home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / shape 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  30 lines
  1. 100 rem shape 64 von r. loewenstein
  2. 101 rem              zeisigweg 42
  3. 102 rem              8301 oberahrain
  4. 103 rem              tel:08703/2088
  5. 104 :
  6. 120 poke53270,4:x=49152:fora=0to368:readb:pokex+a,b:c=c+b:next
  7. 125 ifc<>43521thensys58784:print"fehler in datas!":end
  8. 130 sys58784:sys49391:print"[147]   ****  c-64 shape system v1.0  ****"
  9. 140 print" 64k ram system  40130 basic bytes free"
  10. 150 new
  11. 32000 data32,253,174,32,235,183,134,4,165,20,166,21,133,2,134,3,32,253,174,32
  12. 32001 data235,183,165,20,133,5,138,240,32,201,1,240,14,162,7,189,89,192,157,146
  13. 32002 data192,202,16,247,76,113,192,162,7,189,97,192,157,146,192,202,16,247,76
  14. 32003 data113,192,32,253,174,32,235,183,142,110,192,165,20,141,106,192,162,7
  15. 32004 data189,105,192,157,146,192,202,16,247,76,113,192,177,2,145,6,177,8,145
  16. 32005 data10,177,6,145,2,177,10,145,8,169,255,145,2,169,0,145,8,169,54,133,1
  17. 32006 data169,0,162,160,133,6,134,7,162,176,133,10,134,11,166,2,165,3,24,105
  18. 32007 data20,133,9,134,8,166,5,160,0,169,255,145,2,169,0,145,8,200,196,4,144
  19. 32008 data243,165,6,24,101,4,133,6,133,10,144,4,230,7,230,11,165,2,24,105,40
  20. 32009 data133,2,133,8,144,4,230,3,230,9,202,208,208,169,55,133,1,96,234,169,51
  21. 32010 data133,1,169,0,162,200,160,208,133,2,134,3,133,4,132,5,162,8,168,177,4
  22. 32011 data145,2,136,208,249,230,3,230,5,202,208,242,169,55,133,1,88,96,120,169
  23. 32012 data208,141,207,192,32,197,192,169,0,141,0,221,169,18,141,24,208,169,196
  24. 32013 data141,136,2,169,50,162,193,141,20,3,142,21,3,169,0,141,32,208,141,33
  25. 32014 data208,169,14,141,134,2,169,60,162,3,133,43,134,44,169,0,141,60,3,169
  26. 32015 data8,32,210,255,88,96,173,141,2,201,3,208,24,169,18,141,141,2,141,142
  27. 32016 data2,230,255,165,255,41,1,208,11,169,216,141,207,192,32,197,192,76,49
  28. 32017 data234,169,208,141,207,192,32,197,192,76,49,234,120,169,208,141,207,192
  29. 32018 data76,198,192,120,169,216,141,207,192,76,198,192
  30.